#! /usr/bin/perl

use diagnostics;
use strict;

my $output = `file /home/clock/a`;
print ">>$output<<";
system('file /home/clock/a');